home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESFORM3.S < prev    next >
Text File  |  1993-03-10  |  826b  |  33 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Form Manager routines 3 of 3.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; form_alert
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _form_alert
  20. _form_alert:
  21. ;          .cargs    #4,def,ptext
  22.  
  23. def             =    4
  24. ptext            =    6
  25.  
  26.           move.l    #$34010101,d0       ; AControl  52,1,1,1
  27.           lea        def(sp),a1           ; -> intin
  28.           lea        ptext(sp),a0       ; -> addrin
  29.           jmp        aes_do
  30.  
  31. ;          end of code
  32.  
  33.